00100		DIMENSION N(80),LN(72),IR(288)
00200		TYPE 100
00300	100	FORMAT(' TYPE FILE NAME --'$)
00400		ACCEPT 101,NM
00500	101	FORMAT(A5)
00550		CALL OFILE(21,'XXX')
00600		IF(NM.NE.'TYPE')CALL IFILE(1,NM)
00610	55	JX=0
00700	105	FORMAT(I,80A1)
00710	106	FORMAT('999 ',80A1)
00800	5	IF(NM.NE.'TYPE')READ(1,105,END=103)NN,N
00850		IF(NM.EQ.'TYPE')ACCEPT 104,N
00875	104	FORMAT(80A1)
00900		K=0
01000		J=0
01100		I=JX
01150		JX=JX+72
01200	1	K=K+1
01400		M=N(K)
01410	15	IF(M.EQ.' '.OR.M.EQ.',')GO TO 1
01420	C  REMOVE BLANKS AND COMMAS
01490		JN=0
01500		IF(M.GE.'0'.AND.M.LE.'9')GO TO 2
01600		MM=N(K+1)
01700	3	IF((M.GE.'A'.AND.M.LE.'G'.AND.MM.NE.'L'.AND.MM.NE.'A').OR.
01800		1 M.EQ.'P'.OR.M.EQ.'O')GO TO 8
01900	C  FINDS NOTES, PROX., AND ORDINARY, -- NOT 'BA' OR 'AL'
02000		IF(M.NE.'R')GO TO 9
02100		IF(MM.EQ.'E')JN=1
02200	C  CATCHES 'R' 'RI' 'REP'
02400		GO TO 8
02440	9	IF(M.EQ.'/'.OR.M.EQ.';'.OR.M.EQ.'*'.OR.M.EQ.':')GO TO 8
02500		JN=-1
02600	8	J=J+1
02700		 LN(J)=M
02760		IF(M.EQ.'X')JN=1
02780	C  PICKS UP 4X ETC. FOR BOTH NOTES AND RHYTH.
02800		IF(JN.LE.0)GO TO 13
02900	C  PUTS 'REP' INTO RHYTH ALSO
02910		I=I+1
02920		IR(I)=M
03100	13	IF(M.EQ.'/'.OR.M.EQ.';'.OR.M.EQ.'*')GO TO 4
03200		K=K+1
03300		M=N(K)
03400		GO TO 8
03500	
03600	4	IF(JN.NE.0)GO TO 7
03700		I=I+1
03800		IR(I)=M
03900	7	IF(M.EQ.'/')GO TO 1
04000		IF(M.EQ.';')GO TO 11
04100		IF(M.EQ.'*')GO TO 6
04200	
04300	2	I=I+1
04400		IR(I)=M
04500		K=K+1
04600		M=N(K)
04700	CC	IF(M.NE.' '.AND.M.NE.',')GO TO 2
04710		IF(M.EQ.'.'.OR.(M.GE.'0'.AND.M.LE.'9'))GO TO 2
04715	C  NO BLANK NEEDED AFTER RHYTH.( /4.AS3/8/ ETC.)
04720		GO TO 15
04800	CC	GO TO 1
04900	
05000	11	IF(IR(I).NE.';')IR(I)=';'
05050	6	TYPE 106,(LN(K),K=1,J)
05060		WRITE(21,106)(LN(K),K=1,J)
05100		IF(IR(I).EQ.';')GO TO 5
05200	
05300		IF(IR(I).NE.'*')IR(I)='*'
05400		DO 12 K=1,I,72
05420		WRITE(21,106)(IR(J),J=K,K+71)
05450	12	TYPE 106,(IR(J),J=K,K+71)
05900	66	IF(NM.NE.'TYPE')READ(1,105,END=103)NN,N
05950		IF(NM.EQ.'TYPE')ACCEPT 104,N
06000		IF(N(1).EQ.'%')GO TO 55
06050		IF(N(1).EQ.'$')GO TO 103
06075	C  IF TYPING, $ ENDS IT.
06100	C  % MEANS READ IN FOR ANOTHER STAFF.  (BLANKS MAY BE NEEDED.)
06200		WRITE(21,106)N
06300		GO TO 66
06400	103	TYPE 102
06500	102	FORMAT(' DATA ON "XXX.DAT"')
06600		END